home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / REPOSTRY / INCLUDE / REPMDO.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-12-23  |  7.1 KB  |  191 lines
  1. Attribute VB_Name = "Mdo"
  2. ' ------------------------------------------------------------------------
  3. '               Copyright (C) 1996 Microsoft Corporation
  4. '
  5. ' You have a royalty-free right to use, modify, reproduce and distribute
  6. ' the Sample Application Files (and/or any modified version) in any way
  7. ' you find useful, provided that you agree that Microsoft has no warranty,
  8. ' obligations or liability for any Sample Application Files.
  9. ' ------------------------------------------------------------------------
  10. Option Explicit
  11.  
  12. '
  13. ' Definitions for MPO
  14. '
  15.  
  16.  '// MPO relationships
  17.  Public OBJID_Contents As Variant
  18.  Public OBJID_Containers As Variant
  19.  
  20.  '// MPO Interfaces
  21.  Public OBJID_IMpoProjectItemContainer As Variant
  22.  Public OBJID_IMpoProjectItem As Variant
  23.  
  24. '
  25. ' Definitions for MDO
  26. '
  27.  
  28. '// class definitions for Mdo TIM repository schema
  29.  Public OBJID_MdoProject As Variant
  30.  Public OBJID_MdoControl As Variant
  31.  Public OBJID_MdoRelatedDocument As Variant
  32.  Public OBJID_MdoVBForm As Variant
  33.  Public OBJID_MdoMDIForm As Variant
  34.  Public OBJID_MdoStdModule As Variant
  35.  Public OBJID_MdoClassModule As Variant
  36.  Public OBJID_MdoPropertyPage As Variant
  37.  Public OBJID_MdoDesigner As Variant
  38.  Public OBJID_MdoResourceFile As Variant
  39.  Public OBJID_MdoMSForm As Variant
  40.  Public OBJID_MdoUserControl As Variant
  41.  Public OBJID_MdoUserDocument As Variant
  42.  Public OBJID_MdoTypeLibRef As Variant
  43.  Public OBJID_MdoProjectRef As Variant
  44.  Public OBJID_MdoISVControl As Variant
  45.     
  46. '// instance ids
  47. Public OBJID_mdoModel As Variant
  48.  
  49.     
  50. '// main repository interfaces
  51. Public OBJID_IMdoModelItem As Variant
  52. Public OBJID_IMdoGroupProject As Variant
  53. Public OBJID_IMdoProject As Variant
  54. Public OBJID_IMdoReference As Variant
  55. Public OBJID_IMdoComponent As Variant
  56. Public OBJID_IMdoControlContainer As Variant
  57. Public OBJID_IMdoControl As Variant
  58. Public OBJID_IMdoISVControl As Variant
  59. Public OBJID_IMdoControlUsage As Variant
  60.  
  61.  
  62. '// repository relationships
  63. Public OBJID_mdoComponents As Variant
  64. Public OBJID_mdoComponentProjects As Variant
  65.  
  66. Public OBJID_mdoReferences As Variant
  67. Public OBJID_mdoReferenceProjects As Variant
  68.  
  69. Public OBJID_mdoControls As Variant
  70. Public OBJID_mdoControlContainers As Variant
  71.  
  72. Public OBJID_mdoISVControls As Variant
  73. Public OBJID_mdoControlUsage As Variant
  74.  
  75.  
  76. ' property definitions
  77. Public OBJID_PropDescription As Variant
  78. Public OBJID_PropFilename As Variant
  79. Public OBJID_PropTimestamp As Variant
  80. Public OBJID_PropProjectName As Variant
  81. Public OBJID_PropIndex As Variant
  82. Public OBJID_PropClassName As Variant
  83. Public OBJID_PropProgID As Variant
  84. Public OBJID_PropCtlDescription As Variant
  85.  
  86. Private Sub DEFINE_OBJID(ByRef id As Variant, uniquifier As Long, base() As Long)
  87.     base(4) = uniquifier
  88.     id = base
  89. End Sub
  90.  
  91. Sub InitMdo()
  92.         Dim GUID_MPO(0 To 4) As Long
  93.         '#define GUID_MPO       { 0xb037cb3, 0x170e, 0x11d0, 0x90, 0xac, 0x0, 0xa0, 0xc9, 0x13, 0xf7, 0xc7 }
  94.         GUID_MPO(0) = &HB037CB3
  95.         GUID_MPO(1) = &H11D0170E
  96.         GUID_MPO(2) = &HA000AC90
  97.         GUID_MPO(3) = &HC7F713C9
  98.  
  99.         '// mpo definitions
  100.         Call DEFINE_OBJID(OBJID_Contents, 72, GUID_MPO)
  101.         Call DEFINE_OBJID(OBJID_Containers, 73, GUID_MPO)
  102.         Call DEFINE_OBJID(OBJID_IMpoProjectItemContainer, 74, GUID_MPO)
  103.         Call DEFINE_OBJID(OBJID_IMpoProjectItem, 75, GUID_MPO)
  104.     
  105.     Dim GUID_VBTIM(0 To 4) As Long
  106.     '#define GUID_VBTIM      { 0xa541d2e2, 0x6c7d, 0x11cf, 0xa7, 0x42, 0x0, 0xa0, 0xd1, 0x0, 0x2, 0xa3 }
  107.     GUID_VBTIM(0) = &HA541D2E2
  108.     GUID_VBTIM(1) = &H11CF6C7D
  109.     GUID_VBTIM(2) = &HA00042A7
  110.     GUID_VBTIM(3) = &HA30200D1
  111.  
  112.     '// main class definitions for VBTIM repository schema
  113.     Call DEFINE_OBJID(OBJID_MdoProject, 1, GUID_VBTIM)
  114.     Call DEFINE_OBJID(OBJID_MdoControl, 3, GUID_VBTIM)
  115.     Call DEFINE_OBJID(OBJID_MdoRelatedDocument, 4, GUID_VBTIM)
  116.     Call DEFINE_OBJID(OBJID_MdoVBForm, 5, GUID_VBTIM)
  117.     Call DEFINE_OBJID(OBJID_MdoMDIForm, 7, GUID_VBTIM)
  118.     Call DEFINE_OBJID(OBJID_MdoStdModule, 8, GUID_VBTIM)
  119.     Call DEFINE_OBJID(OBJID_MdoClassModule, 9, GUID_VBTIM)
  120.     Call DEFINE_OBJID(OBJID_MdoPropertyPage, 11, GUID_VBTIM)
  121.     Call DEFINE_OBJID(OBJID_MdoDesigner, 12, GUID_VBTIM)
  122.     Call DEFINE_OBJID(OBJID_MdoResourceFile, 13, GUID_VBTIM)
  123.     Call DEFINE_OBJID(OBJID_MdoMSForm, 14, GUID_VBTIM)
  124.     Call DEFINE_OBJID(OBJID_MdoUserControl, 15, GUID_VBTIM)
  125.     Call DEFINE_OBJID(OBJID_MdoUserDocument, 16, GUID_VBTIM)
  126.     Call DEFINE_OBJID(OBJID_MdoTypeLibRef, 17, GUID_VBTIM)
  127.     Call DEFINE_OBJID(OBJID_MdoProjectRef, 18, GUID_VBTIM)
  128.     Call DEFINE_OBJID(OBJID_MdoISVControl, 19, GUID_VBTIM)
  129.  
  130.     '// instance ids
  131.     'Call DEFINE_OBJID(OBJID_mdoModel, 99, GUID_VBTIM)
  132.     
  133.     '// main repository interfaces
  134.     Call DEFINE_OBJID(OBJID_IMdoModelItem, 20, GUID_VBTIM)
  135.     Call DEFINE_OBJID(OBJID_IMdoGroupProject, 21, GUID_VBTIM)
  136.     Call DEFINE_OBJID(OBJID_IMdoProject, 23, GUID_VBTIM)
  137.     Call DEFINE_OBJID(OBJID_IMdoReference, 24, GUID_VBTIM)
  138.     Call DEFINE_OBJID(OBJID_IMdoComponent, 25, GUID_VBTIM)
  139.     Call DEFINE_OBJID(OBJID_IMdoControlContainer, 26, GUID_VBTIM)
  140.     Call DEFINE_OBJID(OBJID_IMdoControl, 27, GUID_VBTIM)
  141.     Call DEFINE_OBJID(OBJID_IMdoISVControl, 28, GUID_VBTIM)
  142.     Call DEFINE_OBJID(OBJID_IMdoControlUsage, 29, GUID_VBTIM)
  143.     
  144.     '// repository relationships
  145.     Call DEFINE_OBJID(OBJID_mdoComponents, 34, GUID_VBTIM)
  146.     Call DEFINE_OBJID(OBJID_mdoComponentProjects, 35, GUID_VBTIM)
  147.     
  148.     Call DEFINE_OBJID(OBJID_mdoReferences, 36, GUID_VBTIM)
  149.     Call DEFINE_OBJID(OBJID_mdoReferenceProjects, 37, GUID_VBTIM)
  150.     
  151.     Call DEFINE_OBJID(OBJID_mdoControls, 38, GUID_VBTIM)
  152.     Call DEFINE_OBJID(OBJID_mdoControlContainers, 39, GUID_VBTIM)
  153.     
  154.     Call DEFINE_OBJID(OBJID_mdoISVControls, 40, GUID_VBTIM)
  155.     Call DEFINE_OBJID(OBJID_mdoControlUsage, 41, GUID_VBTIM)
  156.  
  157.  
  158.     '// dispatch ids for collections in repository
  159.     Const DISPID_Components = 52
  160.     Const DISPID_ComponentProject = 53
  161.  
  162.     Const DISPID_References = 54
  163.     Const DISPID_ReferenceProject = 55
  164.  
  165.     Const DISPID_Controls = 56
  166.     Const DISPID_ControlContainer = 57
  167.  
  168.     Const DISPID_ISVControls = 58
  169.     Const DISPID_ISVUsage = 59
  170.  
  171.     '// property ids for properties in repository
  172.     Const DISPID_PropDescription = 102
  173.     Const DISPID_PropFileName = 103
  174.     Const DISPID_PropTimestamp = 104
  175.     Const DISPID_PropProjectName = 105
  176.     Const DISPID_PropIndex = 111
  177.     Const DISPID_PropClassName = 112
  178.     Const DISPID_PropProgId = 113
  179.     Const DISPID_PropCtlDescription = 114
  180.     
  181.     Call DEFINE_OBJID(OBJID_PropDescription, DISPID_PropDescription, GUID_VBTIM)
  182.     Call DEFINE_OBJID(OBJID_PropFilename, DISPID_PropFileName, GUID_VBTIM)
  183.     Call DEFINE_OBJID(OBJID_PropTimestamp, DISPID_PropTimestamp, GUID_VBTIM)
  184.     Call DEFINE_OBJID(OBJID_PropProjectName, DISPID_PropProjectName, GUID_VBTIM)
  185.     Call DEFINE_OBJID(OBJID_PropIndex, DISPID_PropIndex, GUID_VBTIM)
  186.     Call DEFINE_OBJID(OBJID_PropClassName, DISPID_PropClassName, GUID_VBTIM)
  187.     Call DEFINE_OBJID(OBJID_PropProgID, DISPID_PropProgId, GUID_VBTIM)
  188.     Call DEFINE_OBJID(OBJID_PropCtlDescription, DISPID_PropCtlDescription, GUID_VBTIM)
  189.  
  190. End Sub
  191.